﻿Public Function skt(ByVal a(,)as Double)as Double(,)
dim i,n as Integer
dim ret(0,0)as Double
 n=a.Length-1
For i=0 to n

if a(0,i)>0.07
ret(0,0)=i
Return ret
end if
next
Return ret
End Function